'From Pharo-1.0-10508-rc2 of 19 October 2009 [Latest update: #10508] on 14 March 2010 at 8:53:03 pm'!Object subclass: #Divixion	instanceVariableNames: 'numerador denominador'	classVariableNames: ''	poolDictionaries: ''	category: 'TP090728'!!Divixion methodsFor: 'Accessors' stamp: 'DamianSchenkelman 3/14/2010 20:40'!parametro1: p1 parametro2: p2	"Setea los campos numerador (parametro1) y denominador (parametro2)."	numerador := p1.	denominador := p2! !!Divixion methodsFor: 'Ejecucion' stamp: 'DamianSchenkelman 3/14/2010 20:44'!evaluarEn: numero	"Reemplaza X en el denominador de la division por el parametro recibido y devuelve el valor de la division."	| resultado |	denominador valor: numero.	resultado := (numerador valor) / (denominador valor).	denominador valor: nil.	^resultado ! !